home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Jumpstart / Multimedia Microsoft Jumpstart Version 1.1a (Microsoft).BIN / develpmt / source / roadshow / video.txt < prev    next >
Encoding:
Text File  |  1993-10-14  |  1.2 KB  |  54 lines
  1. Option Explicit
  2.  
  3. Sub AnimationButton_Click ()
  4.     Animation.Show 1
  5. End Sub
  6.  
  7. Sub Done_Click ()
  8.     Video.Hide
  9.     Controller.Show
  10. End Sub
  11.  
  12. Sub Form_Load ()
  13.     Movie.Command = "close"
  14.     Movie.FileName = "avi\mmroad.avi"
  15.     Movie.hWndDisplay = PressMe.hWnd
  16.     Movie.Command = "open"
  17. End Sub
  18.  
  19. Sub HotVideo_ObjMouseDown (X As Integer, Y As Integer, ObjId As Integer)
  20.     If ObjId = 1 Then
  21.         HotVideo.Play = False
  22.         HotVideo.DataName = ""
  23.         HotVideo.FileName = ""
  24.         Video.Hide
  25.         Controller.Show
  26.         JumpTopic "Sites"
  27.     End If
  28. End Sub
  29.  
  30. Sub HotVideo_Play (Play As Integer)
  31.     If Play = 0 Then
  32.         HotVideo.Visible = False
  33.     End If
  34. End Sub
  35.  
  36. Sub PressMe_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  37.     Movie.Command = "play"
  38. End Sub
  39.  
  40. Sub PressMe_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  41.     Movie.Command = "stop"
  42.     Movie.To = 0
  43.     Movie.Command = "seek"
  44.     PressMe.Refresh
  45. End Sub
  46.  
  47. Sub VideoButton_Click ()
  48.     HotVideo.DataName = "avi\earth.ivd"
  49.     HotVideo.FileName = "avi\earth.avi"
  50.     HotVideo.Visible = True
  51.     HotVideo.Play = True
  52. End Sub
  53.  
  54.